home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LImacSTACK-8⁄89.cpt / LImacSTACK.8_89 / background_6406.txt < prev    next >
Text File  |  1989-08-04  |  2KB  |  102 lines
  1. -- background: 6406 from stack: in.8_89
  2. -- bmap block id: 6676
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Directory
  6. ----- HyperTalk script -----
  7. on savethis
  8.   push cd
  9.   visual dissolve very slow to white
  10.   visual dissolve very slow to black
  11.   go cd "BLACK2"
  12.   visual dissolve
  13.   go cd "brought by"
  14.   wait 120
  15.   visual dissolve
  16.   go cd "BLACK2"
  17.   go cd "Credit"
  18.   play "firebird"
  19.   visual dissolve
  20.   go stack "ali baa baa"
  21. end savethis
  22.  
  23.  
  24.  
  25. -- part 2 (field)
  26. -- low flags: 01
  27. -- high flags: 0000
  28. -- rect: left=117 top=74 right=326 bottom=499
  29. -- title width / last selected line: 0
  30. -- icon id / first selected line: 0 / 0
  31. -- text alignment: 0
  32. -- font id: 0
  33. -- text size: 12
  34. -- style flags: 256
  35. -- line height: 42
  36. -- part name: stack list
  37. ----- HyperTalk script -----
  38. on mouseUp
  39.   get the short name of this cd
  40.   if it is "stacks"
  41.   then
  42.   get clickLine()
  43.   put line it of me into whatget
  44.   select line it of me
  45.   if the selection is not empty
  46.   then
  47.   push cd
  48.   if the selection contains "ResEdit"
  49.   then
  50.   open "ResEdit ver 1.2b2"
  51. else
  52.   visual dissolve slow to white
  53.   visual dissolve slow to black
  54.   go stack whatGet
  55. end if
  56. end if
  57. end if
  58. end mouseUp
  59.  
  60.  
  61. -- part 3 (button)
  62. -- low flags: 00
  63. -- high flags: 0000
  64. -- rect: left=465 top=296 right=331 bottom=489
  65. -- title width / last selected line: 0
  66. -- icon id / first selected line: 6721 / 6721
  67. -- text alignment: 1
  68. -- font id: 0
  69. -- text size: 12
  70. -- style flags: 0
  71. -- line height: 16
  72. -- part name: Return
  73. ----- HyperTalk script -----
  74. on mouseUp
  75.   visual iris close to grey
  76.   visual iris open
  77.   pop cd
  78. end mouseUp
  79.  
  80.  
  81.  
  82. -- part 4 (button)
  83. -- low flags: 00
  84. -- high flags: 0000
  85. -- rect: left=439 top=303 right=323 bottom=465
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 4465 / 4465
  88. -- text alignment: 1
  89. -- font id: 3
  90. -- text size: 9
  91. -- style flags: 0
  92. -- line height: 12
  93. -- part name: Index
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   push cd
  97.   visual barn door close to black
  98.   visual barn door open
  99.   go cd "LImacSTACK index"
  100. end mouseUp
  101.  
  102.